RCDFLG←-1; 
 
  < ZW   .DAT  --  RANDOM NUMBER=     1
 PLAY;
 TOOT     0.000    0.250 A*2   1000.000
;PRINT(P1);< TOOT    1
 TOOT     0.250    0.250 D*2  
;PRINT(P1);< TOOT    2
 TOOT     0.500    0.250 A/2  
;PRINT(P1);< TOOT    3
 TOOT     0.750    0.250 DS/2 
;PRINT(P1);< TOOT    4
 TOOT     1.000    0.500 C*4  
;PRINT(P1);< TOOT    5
 TOOT     1.500    0.500 GS*2 
;PRINT(P1);< TOOT    6
 TOOT     2.000    1.000 B    
;PRINT(P1);< TOOT    7
 TOOT     3.000    0.250 CS/2 
;PRINT(P1);< TOOT    8
 TOOT     3.250    0.250 FS   
;PRINT(P1);< TOOT    9
 TOOT     3.500    0.250 E    
;PRINT(P1);< TOOT   10
 TOOT     3.750    0.250 G*2  
;PRINT(P1);< TOOT   11
 TOOT     4.000    0.500 E/2  
;PRINT(P1);< TOOT   12
 TOOT     4.500    0.500 F    
;PRINT(P1);< TOOT   13
 TOOT     5.000    1.000 C    
;PRINT(P1);< TOOT   14
 TOOT     6.000    0.250 G    
;PRINT(P1);< TOOT   15
 TOOT     6.250    0.250 AS/2 
;PRINT(P1);< TOOT   16
 TOOT     6.500    0.250 AS/2 
;PRINT(P1);< TOOT   17
 TOOT     6.750    0.250 A    
;PRINT(P1);< TOOT   18
 TOOT     7.000    0.500 FS   
;PRINT(P1);< TOOT   19
 TOOT     7.500    0.500 GS*2 
;PRINT(P1);< TOOT   20
 TOOT     8.000    1.000 F/2  
;PRINT(P1);< TOOT   21
 TOOT     9.000    0.250 GS   
;PRINT(P1);< TOOT   22
 TOOT     9.250    0.250 FS   
;PRINT(P1);< TOOT   23
 TOOT     9.500    0.250 AS*2 
;PRINT(P1);< TOOT   24
 TOOT     9.750    0.250 B/2  
;PRINT(P1);< TOOT   25
 FINISH; < ZW   .DAT